home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Copy, Move2963110182001.psc / FrmCopyFile.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-10-16  |  2.4 KB  |  90 lines
  1. VERSION 5.00
  2. Begin VB.Form FrmCopyFile 
  3.    Caption         =   "FSO Multipul Functions"
  4.    ClientHeight    =   2460
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   2460
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton CmdDelete 
  13.       Caption         =   "&Delete"
  14.       Height          =   375
  15.       Left            =   1080
  16.       TabIndex        =   6
  17.       Top             =   1920
  18.       Width           =   2295
  19.    End
  20.    Begin VB.CommandButton CmdMove 
  21.       Caption         =   "&Move"
  22.       Height          =   375
  23.       Left            =   2400
  24.       TabIndex        =   5
  25.       Top             =   1320
  26.       Width           =   1935
  27.    End
  28.    Begin VB.TextBox TxtTarget 
  29.       Height          =   285
  30.       Left            =   1200
  31.       TabIndex        =   4
  32.       Top             =   840
  33.       Width           =   3015
  34.    End
  35.    Begin VB.TextBox TxtSource 
  36.       Height          =   285
  37.       Left            =   1200
  38.       TabIndex        =   1
  39.       Top             =   240
  40.       Width           =   3015
  41.    End
  42.    Begin VB.CommandButton CmdCopy 
  43.       Caption         =   "&Copy"
  44.       Height          =   375
  45.       Left            =   120
  46.       TabIndex        =   0
  47.       Top             =   1320
  48.       Width           =   2055
  49.    End
  50.    Begin VB.Label LblTarget 
  51.       Caption         =   "Target"
  52.       Height          =   255
  53.       Left            =   120
  54.       TabIndex        =   3
  55.       Top             =   840
  56.       Width           =   975
  57.    End
  58.    Begin VB.Label LblSource 
  59.       Caption         =   "Source"
  60.       Height          =   255
  61.       Left            =   120
  62.       TabIndex        =   2
  63.       Top             =   240
  64.       Width           =   855
  65.    End
  66. Attribute VB_Name = "FrmCopyFile"
  67. Attribute VB_GlobalNameSpace = False
  68. Attribute VB_Creatable = False
  69. Attribute VB_PredeclaredId = True
  70. Attribute VB_Exposed = False
  71. Dim Check As Boolean
  72. Private Sub CmdCopy_Click()
  73.     Check = Check_Value()
  74.     If Check = True Then
  75.         Call Copy_File
  76.     End If
  77. End Sub
  78. Private Sub CmdDelete_Click()
  79.     Check = Check_Value()
  80.     If Check = True Then
  81.         Call Delete_File
  82.     End If
  83. End Sub
  84. Private Sub CmdMove_Click()
  85.     Check = Check_Value()
  86.     If Check = True Then
  87.         Call Move_File
  88.     End If
  89. End Sub
  90.